Delphi Developer's Kit 1996/Delphi Developer's Kit 1996.iso/power/source8/uimage.dfm/uimage.txt

Text File | 1995-12-22 | 14.4 KB | 689 lines

object Form1: TForm1
  Left = 6
  Top = 12
  Width = 629
  Height = 435
  ActiveControl = DirectoryListBox1
  Caption = 'Imagelib user'#39's example'
  Font.Color = clBlack
  Font.Height = -12
  Font.Name = 'Times New Roman'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 15
  object Label1: TLabel
    Left = 1
    Top = 364
    Width = 46
    Height = 13
    Caption = 'Strech on'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 51
    Top = 364
    Width = 77
    Height = 13
    Caption = 'Save options on'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object QualityLabel: TLabel
    Left = 132
    Top = 296
    Width = 58
    Height = 13
    Caption = 'Quality save'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object SmoothLabel: TLabel
    Left = 132
    Top = 364
    Width = 62
    Height = 13
    Caption = 'Smooth save'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Gauge1: TGauge
    Left = 183
    Top = 270
    Width = 314
    Height = 13
    BorderStyle = bsNone
    ForeColor = clRed
    BackColor = clBtnFace
    Progress = 0
  end
  object Label9: TLabel
    Left = 512
    Top = -2
    Width = 30
    Height = 15
    AutoSize = False
    Caption = 'Width'
  end
  object Label10: TLabel
    Left = 512
    Top = 32
    Width = 32
    Height = 15
    AutoSize = False
    Caption = 'Height'
  end
  object Label11: TLabel
    Left = 512
    Top = 65
    Width = 65
    Height = 15
    AutoSize = False
    Caption = 'Bits per pixel'
  end
  object Label12: TLabel
    Left = 512
    Top = 99
    Width = 31
    Height = 15
    AutoSize = False
    Caption = 'Planes'
  end
  object Label13: TLabel
    Left = 512
    Top = 133
    Width = 32
    Height = 15
    AutoSize = False
    Caption = 'Colors'
  end
  object Label14: TLabel
    Left = 512
    Top = 166
    Width = 27
    Height = 15
    AutoSize = False
    Caption = 'Type'
  end
  object Label15: TLabel
    Left = 512
    Top = 199
    Width = 64
    Height = 15
    AutoSize = False
    Caption = 'Compression'
  end
  object Label8: TLabel
    Left = 512
    Top = 232
    Width = 20
    Height = 15
    Caption = 'Size'
  end
  object MultiImage1: TMultiImage
    Left = 185
    Top = 19
    Width = 312
    Height = 241
    Cursor = crCross
    Center = True
    JPegDither = 4
    JPegResolution = 8
    JPegSaveQuality = 25
    JPegSaveSmooth = 0
    ImageName = 'file not found'
    OnClick = MultiImage1Click
  end
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 244
    Width = 145
    Height = 21
    Color = 12639424
    TabOrder = 0
    OnChange = DriveComboBox1Change
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 8
    Top = 125
    Width = 145
    Height = 110
    Color = 12639424
    ItemHeight = 16
    TabOrder = 1
    OnChange = DirectoryListBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 8
    Top = 17
    Width = 145
    Height = 97
    Color = 12639424
    ItemHeight = 16
    Mask = '*.gif;*.jpg;*.pcx;*.bmp;*.wmf;*.ico;*.scm'
    ShowGlyphs = True
    TabOrder = 2
    OnChange = FileListBox1Change
  end
  object Sstretch: TBiSwitch
    Left = 8
    Top = 312
    Width = 33
    Height = 49
    ForeColor = clBlack
    BackColor = clBtnFace
    pOn = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabStop = True
    TabOrder = 3
    OnOn = SstretchOnOff
    OnOff = SstretchOnOff
  end
  object SaveAs: TBiSwitch
    Left = 70
    Top = 312
    Width = 33
    Height = 49
    ForeColor = clBlack
    BackColor = clBtnFace
    pOn = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabStop = True
    TabOrder = 4
    OnOn = setsavevisible
    OnOff = setsavevisible
  end
  object SaveButton: TBitBtn
    Left = 521
    Top = 301
    Width = 82
    Height = 76
    Caption = 'Save'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = SaveButtonClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
      03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
      30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
      07807F777733337F7F3707888887880808807F333333337F7F37077777778800
      08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
      33003777737777333377333080333333333333F7373333333333300803333333
      33333773733333333333088033333333333373F7F33333333333308033333333
      33333737333333333333330333333333333333733333333333330000}
    Layout = blGlyphTop
    NumGlyphs = 2
    Style = bsNew
  end
  object QualitySpin: TSpinEdit
    Left = 132
    Top = 314
    Width = 49
    Height = 24
    Hint = '0 to 100 for jpeg saving quality'
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxValue = 100
    MinValue = 0
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    Value = 25
  end
  object Smoothspin: TSpinEdit
    Left = 132
    Top = 336
    Width = 49
    Height = 24
    Hint = '0 to 100 for jpeg smoothing quality'
    AutoSize = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MaxValue = 100
    MinValue = 0
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Value = 0
  end
  object GroupBox1: TGroupBox
    Left = 210
    Top = 296
    Width = 126
    Height = 81
    Caption = 'JPeg display resolution'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    object res4: TRadioButton
      Left = 8
      Top = 17
      Width = 105
      Height = 17
      Hint =
        'Ideal with one pass dither to display images on a 16 color syste' +
        'm'
      Caption = '4 bit (16 colors)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = resClick
    end
    object res24: TRadioButton
      Left = 8
      Top = 61
      Width = 105
      Height = 17
      Caption = '24 bit (true color)'
      TabOrder = 1
      OnClick = resClick
    end
    object res8: TRadioButton
      Left = 8
      Top = 38
      Width = 105
      Height = 17
      Caption = '8 bit (256 colors)'
      Checked = True
      TabOrder = 2
      TabStop = True
      OnClick = resClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 358
    Top = 296
    Width = 144
    Height = 81
    Caption = 'JPeg display dither'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    object Label5: TLabel
      Left = 4
      Top = 16
      Width = 45
      Height = 13
      Caption = 'One pass'
    end
    object Label6: TLabel
      Left = 56
      Top = 16
      Width = 46
      Height = 13
      Caption = 'Two pass'
    end
    object Label7: TLabel
      Left = 115
      Top = 16
      Width = 26
      Height = 13
      Caption = 'None'
    end
    object DitherOneNo: TRadioButton
      Left = 8
      Top = 38
      Width = 40
      Height = 17
      Hint = 'One pass no dithering'
      Caption = 'No'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = DitherClick
    end
    object DitherOneYes: TRadioButton
      Left = 8
      Top = 60
      Width = 41
      Height = 17
      Hint = 'One pass with dithering'
      Caption = 'Yes'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = DitherClick
    end
    object DitherTwoNo: TRadioButton
      Left = 59
      Top = 39
      Width = 40
      Height = 17
      Hint = 'Two pass no dithering'
      Caption = 'No'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = DitherClick
    end
    object DitherTwoYes: TRadioButton
      Left = 59
      Top = 60
      Width = 40
      Height = 17
      Hint = 'Two pass FS dithering'
      Caption = 'Yes'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TabStop = True
      OnClick = DitherClick
    end
    object Dither24Bit: TRadioButton
      Left = 109
      Top = 39
      Width = 33
      Height = 17
      Hint = 'No dithering (24 bit)'
      Caption = '24'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = DitherClick
    end
  end
  object Edit1: TEdit
    Left = 512
    Top = 14
    Width = 80
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 10
  end
  object Edit2: TEdit
    Left = 512
    Top = 46
    Width = 80
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 11
  end
  object Edit3: TEdit
    Left = 512
    Top = 81
    Width = 80
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 12
  end
  object Edit4: TEdit
    Left = 512
    Top = 115
    Width = 80
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 13
  end
  object Edit5: TEdit
    Left = 512
    Top = 148
    Width = 80
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 14
  end
  object Edit6: TEdit
    Left = 512
    Top = 181
    Width = 80
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 15
  end
  object Edit7: TEdit
    Left = 512
    Top = 215
    Width = 80
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 16
  end
  object Edit8: TEdit
    Left = 512
    Top = 247
    Width = 81
    Height = 15
    AutoSize = False
    Color = clFuchsia
    Font.Color = clYellow
    Font.Height = -12
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 18
  end
  object GetInfoChecked: TCheckBox
    Left = 512
    Top = 272
    Width = 81
    Height = 17
    Caption = 'Image Info'
    State = cbChecked
    TabOrder = 17
    OnClick = GetInfoCheckedClick
  end
  object CheckBox1: TCheckBox
    Left = 415
    Top = 1
    Width = 82
    Height = 17
    Caption = 'Center Image'
    State = cbChecked
    TabOrder = 19
    OnClick = CheckBox1Click
  end
  object BitBtn1: TBitBtn
    Left = 7
    Top = 267
    Width = 145
    Height = 22
    Caption = 'Create Message'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 21
    OnClick = BitBtn1Click
    Style = bsNew
  end
  object ScrollBar1: TScrollBar
    Left = 175
    Top = 21
    Width = 9
    Height = 238
    Hint = 'Message speed'
    Kind = sbVertical
    Max = 11
    ParentShowHint = False
    Position = 5
    ShowHint = True
    TabOrder = 22
    Visible = False
    OnChange = ScrollBar1Change
  end
  object SaveDialog1: TSaveDialog
    FileEditStyle = fsComboBox
    Filter = 'jpeg|*.jpg|bitmap|*.bmp'
    Options = [ofOverwritePrompt]
    Title = 'Save as Jpeg or Bitmap'
    Left = 252
    Top = 20
  end
  object MainMenu1: TMainMenu
    Left = 220
    Top = 20
    object N1: TMenuItem
      Caption = '&File'
      object O1: TMenuItem
        Caption = '&Open'
        OnClick = O1Click
      end
      object N2: TMenuItem
        Caption = '&Save'
        OnClick = SaveButtonClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
      end
      object PrintSetup1: TMenuItem
        Caption = 'Print &Setup'
        OnClick = PrintSetup1Click
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object CreateMessage1: TMenuItem
        Caption = '&Create Message'
        OnClick = BitBtn1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object E1: TMenuItem
        Caption = 'E&xit'
        OnClick = E1Click
      end
    end
    object Edit9: TMenuItem
      Caption = '&Edit'
      object Cut1: TMenuItem
        Caption = '&Cut'
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = 'C&opy'
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        OnClick = Paste1Click
      end
    end
    object A1: TMenuItem
      Caption = '&About'
      OnClick = A1Click
    end
  end
  object OpenDialog1: TOpenDialog
    FileEditStyle = fsComboBox
    Filter =
      'jpeg|*.jpg|bitmap|*.bmp|gif|*.gif|pcx|*.pcx|metafile|*.wmf|icon|' +
      '*.ico|all images|*.jpg;*.bmp;*.gif;*.pcx;*.wmf;*.ico'
    Options = [ofReadOnly]
    Title = 'Open images'
    Left = 186
    Top = 20
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 279
    Top = 20
  end
  object PrintDialog1: TPrintDialog
    Options = [poPageNums, poSelection, poWarning]
    PrintRange = prSelection
    Left = 308
    Top = 20
  end
end